(PUTPROP (QUOTE BKEVAL) (GET (QUOTE EVAL) (QUOTE LSUBR)) (QUOTE LSUBR)) 
(PUTPROP (QUOTE BKPROG) (GET (QUOTE PROG) (QUOTE FSUBR)) (QUOTE FSUBR))
(PUTPROP (QUOTE BKSETQ) (GET (QUOTE SETQ) (QUOTE FSUBR)) (QUOTE FSUBR)) 

(DEFPROP BREAK1
 (LAMBDA (BRKEXP BRKWHEN BRKFN BRKCOMS BRKTYPE) (//BREAK1 BRKEXP BRKWHEN BRKFN BRKCOMS BRKTYPE))
EXPR)

(DEFPROP BREAKMACROS
 (NIL (TRACE NIL
	     ((OUTC (CADR #%IOCHANS%#) NIL)
	      (BKPOS #%INDENT)
	      (PRINC (QUOTE ENTER/ ))
	      (PRIN1 BRKFN)
	      (PRINC (QUOTE :))
	      (BKSETQ #%INDENT (*PLUS #%INDENT 3))))
      (EX NIL (FROM?= NIL))
      (-> X (> . X))
      (F X (& . X)))
VALUE)


(DEFPROP %PRINFN
 (%PRINFN . PLEV)
VALUE)

(DEFPROP ERRORX
 (NIL NIL T T)
ERXACTION)

(MAPC (FUNCTION (LAMBDA (X) (PUTPROP X (QUOTE (NIL NIL NIL NIL)) (QUOTE ERXACTION))))
      (QUOTE (BREAK1 //BREAK1 BRKAPPLY BREAK1ERX %ERDEPTH)))